home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 February: Tool Chest / Dev.CD Feb 94.toast / Tool Chest / Development Platforms / Apple II / Essentials / MPW IIGS Interfaces / PIIGSIncludes / Scrap.p < prev    next >
Encoding:
Text File  |  1993-06-15  |  1.6 KB  |  71 lines  |  [TEXT/MPS ]
  1. {********************************************
  2. ; File: Scrap.p
  3. ;
  4. ;
  5. ; Copyright Apple Computer, Inc. 1986-93
  6. ; All Rights Reserved
  7. ;
  8. ********************************************}
  9.  
  10. UNIT SCRAP;
  11. INTERFACE
  12. USES TYPES,QUICKDRAW;
  13. CONST
  14.  
  15. { Error Codes }
  16. badScrapType = $1610;  { No scrap of this type. }
  17.  
  18. { Scrap Types }
  19. textScrap = $0000;
  20. picScrap = $0001;
  21. sampledSoundScrap = $0002;
  22. teStyleScrap = $0064;
  23. iconScrap = $4945;
  24. maskScrap = $8001;
  25. colorTableScrap = $8002;
  26. resourceRefScrap = $8003;
  27.  
  28. { ShowClipboard flag values }
  29. cpOpenWindow = $8000;
  30. cpCloseWindow = $4000;
  31.  
  32. TYPE
  33.  
  34. ScrapInfo = RECORD
  35.     scrapType: integer;
  36.     scrapSize: longint;
  37.     scrapHandle: Handle;
  38. END;
  39. ScrapInfoPtr = ^ScrapInfo;
  40.  
  41. {$IFC UNDEFINED WindowPtr }
  42. WindowPtr = GrafPortPtr ;
  43. {$SETC WindowPtr := 0 }
  44. {$ENDC}
  45.  
  46. PROCEDURE GetScrap ( destHandle:Handle; scrapType:Integer)  ;
  47. FUNCTION GetScrapCount : Integer ;
  48. FUNCTION GetScrapHandle ( scrapType:Integer) : handle ;
  49. FUNCTION GetScrapPath : Ptr ;
  50. FUNCTION GetScrapSize ( scrapType:Integer) : Longint ;
  51. FUNCTION GetScrapState : Integer ;
  52. PROCEDURE LoadScrap;
  53. PROCEDURE PutScrap ( numBytes:Longint; scrapType:Integer; srcPtr:Ptr) ;
  54. PROCEDURE ScrapBootInit;
  55. PROCEDURE ScrapReset;
  56. PROCEDURE ScrapShutDown;
  57. PROCEDURE ScrapStartUp;
  58. FUNCTION ScrapStatus : Boolean ;
  59. FUNCTION ScrapVersion : Integer ;
  60. PROCEDURE SetScrapPath ( path:Str255) ;
  61. PROCEDURE UnloadScrap;
  62. PROCEDURE ZeroScrap;
  63.  
  64. PROCEDURE GetIndScrap(index:integer; var info:ScrapInfo);
  65.  
  66. FUNCTION ShowClipboard (flags:Integer; zoomRect:RectPtr) : WindowPtr ;
  67.   INLINE $A2,$1516,$22,$E10000,$8F,'_toolErr';
  68.  
  69. IMPLEMENTATION
  70. END.
  71.